home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / comm / www / WWWworkbenchIB.lha / WWWworkbench / arexx / W42IFX.ibrx next >
Encoding:
Text File  |  1998-09-10  |  547 b   |  24 lines
  1. /*
  2.  * $VER: W42IFX.ibrx 1.0
  3. *Written by  Andres Pääbo ©98 paabo@bancom.net
  4.  *
  5. * Arexx program for  WWWworkbench. This one loads selected file *into ImageFX. The filename was placed in the cliplist by prior running *of W4arexx.brx.
  6.   */
  7.  
  8. OPTIONS RESULTS
  9. filename=getclip('filename')
  10. IF ~SHOW('Ports','IMAGEFX.1') THEN DO
  11.       ADDRESS 'COMMAND'
  12.       'Run IMAGEFX:IMAGEFX'
  13.       'SYS:RexxC/WaitForPort IMAGEFX.1'
  14.     END
  15.  
  16. Address'IMAGEFX.1'
  17. screentofront
  18. Loadbuffer filename FORCE
  19. if rc~=0 then Requestnotify 'Loading failed. Is it a loadable file? '
  20.  
  21. EXIT
  22.  
  23.  
  24.